unit U_KartAktarSablon;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Buttons, cxStyles, cxCustomData,
  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGrid, ExtCtrls, ComCtrls,
  siComp;

type
  TfmKartAktarSablon = class(TForm)
    DsListeYeni: TDataSource;
    DSListeDegisen: TDataSource;
    cxGrid2: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    Panel1: TPanel;
    edCasperZaman: TEdit;
    edUnityZaman: TEdit;
    bOku: TBitBtn;
    pnlDegisen: TPanel;
    pnlYeni: TPanel;
    bYaz: TBitBtn;
    lblyeni: TLabel;
    lbldegisen: TLabel;
    stcTopDegisen: TStaticText;
    stcTopYeni: TStaticText;
    PB: TProgressBar;
    stcAkDegisen: TStaticText;
    stcAkYeni: TStaticText;
    cxGrid1: TcxGrid;
    cxGridDBTableView2: TcxGridDBTableView;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridDBColumn7: TcxGridDBColumn;
    cxGridDBColumn8: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    bManuelAktarim: TBitBtn;
    cxGridDBTableView2DBColumn1: TcxGridDBColumn;
    cxGridDBTableView1DBColumn1: TcxGridDBColumn;
    procedure FormCreate(Sender: TObject);
    procedure bOkuClick(Sender: TObject);
    procedure bYazClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bManuelAktarimClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    StrCaption, strYeniCaption, strDegisenCaption, strAktarimCaption: string;

    procedure VeriOku; virtual;
    procedure Veriyaz; virtual;
    procedure KartOlustur; virtual;
    procedure Kapanis; virtual;
    procedure ManuelAktarim; virtual;
  end;

var
  fmKartAktarSablon: TfmKartAktarSablon;

implementation
uses cls_TUnityCardAction, data, U_COMMONLOGO, Unity_CariAktarim, ana1;
{$R *.dfm}


procedure TfmKartAktarSablon.FormCreate(Sender: TObject);
begin

  KartOlustur;

end;

procedure TfmKartAktarSablon.bOkuClick(Sender: TObject);
begin
  VeriOku;
end;

procedure TfmKartAktarSablon.bYazClick(Sender: TObject);
begin
  Veriyaz;
end;

procedure TfmKartAktarSablon.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin

  Kapanis;

  action := caFree;
  fmKartAktarSablon := nil;
end;

procedure TfmKartAktarSablon.bManuelAktarimClick(Sender: TObject);
begin

  ManuelAktarim;

end;

procedure TfmKartAktarSablon.VeriOku;
begin
//Sabit kontrolleri Yaz

end;

procedure TfmKartAktarSablon.Veriyaz;
begin
//Sabit kontrolleri Yaz

end;

procedure TfmKartAktarSablon.KartOlustur;
begin
//Sabit kontrolleri Yaz

end;

procedure TfmKartAktarSablon.Kapanis;
begin
//Sabit kontrolleri Yaz

end;

procedure TfmKartAktarSablon.FormShow(Sender: TObject);
begin
  lblyeni.Caption := strYeniCaption;
  lbldegisen.Caption := strDegisenCaption;
  byaz.caption := strAktarimCaption;
  pnlYeni.Caption := strYeniCaption;
  pnlDegisen.Caption := strDegisenCaption;
  caption := StrCaption;
end;

procedure TfmKartAktarSablon.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not dm.connect.InTransaction then
    if key = 27 then close;
end;

procedure TfmKartAktarSablon.ManuelAktarim;
begin
//

end;

end.
